Sub prueba_Write()
    Dim fichero As String
    fichero = "C:\Temp\NotasInput.txt"
    Open fichero For Output As #1
    Dim campo1, campo2, campo3 As String
    campo1 = "Campo1"
    campo2 = "Campo2"
    campo3 = "campo3"
    Dim i As Integer
    For i = 1 To 3
      Write #1, "Lin " & i; campo1; campo2; campo3
    Next i
    Close #1
End Sub

Sub prueba_Input()
    Dim fichero As String
    fichero = "C:\Temp\NotasInput.txt"
    Open fichero For Input As #1
    Dim codigo, campo1, campo2, campo3 As String
    Dim i As Integer
    For i = 1 To 3
      Input #1, codigo, campo1, campo2, campo3
      Debug.Print codigo, campo1, campo2, campo3
    Next i
    Close #1
End Sub
